type users	username as string	fullname as stringend typeType employee	user as users	fname as string	lname as string	title as stringend type    Sub Main()	dim emp1 as employee,emp2 as employee	dim sysuser as users	emp1.user.username = "jose"	sysuser = emp1.user	sysuser.username = "jcuevas"	msgbox(emp1.user.username & "=" & sysuser.username)		emp1.fname = "Jose L."	emp1.lname = "Cuevas"	emp1.title = "Programmer"	msgbox("emp1: Jose L. Cuevas=" & emp1.fname & " " & emp1.lname)	emp2 = copy(emp1)	msgbox("emp1.fname=emp2.fname: " & emp1.fname & "=" & emp2.fname)		//Notice that objects are not copied. emp1 and emp1 share the same	//instance of user.	emp2.user.username = "ctk"		msgbox(emp1.user.username & "=" & emp2.user.username)end sub